﻿Imports System.Windows.Forms

Public Class Pick
    Public Sub New(ByVal Title As String)

        ' This call is required by the designer.
        InitializeComponent()
        Me.Text = Title
        Me.ShowDialog()
        ' Add any initialization after the InitializeComponent() call.

    End Sub

    Private Sub Brwbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Brwbtn.Click

        OpenFileDialog1.Title = "Please Select a File"
        OpenFileDialog1.InitialDirectory = "C:"
        OpenFileDialog1.ShowDialog()

    End Sub
    Private Sub Conbtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Conbtn.Click
        Main.ServicesPath = OpenFileDialog1.FileName
        Me.Hide()
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Me.TextBox1.Text = OpenFileDialog1.FileName
    End Sub
End Class